home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / phones_1 / sship1.bas < prev    next >
Encoding:
BASIC Source File  |  1995-04-19  |  1.3 KB  |  61 lines
  1. 'Global Variable for the game
  2.     
  3.     'Position variables for player
  4.     Global Xcord As Integer
  5.     Global Ycord As Integer
  6.  
  7.     'Enemy Record type
  8.     Type ERecord
  9.         EnemyNum As Integer
  10.         EXcord As Integer
  11.         EYcord As Integer
  12.         Visible As Integer
  13.     End Type
  14.  
  15.     'Number of enemies
  16.     Global Enemys(3) As ERecord
  17.  
  18.     'Score Structure
  19.     Type Score
  20.         Name As String
  21.         NumEnemyDead As Integer
  22.     End Type
  23.  
  24.     'Number fo High Scores
  25.     Global HighScores(5) As Score
  26.  
  27.     'Total Enemy counter
  28.     Global TotalEnemys As Integer
  29.  
  30.     'Enemy Laser Record
  31.     Type ELRecord
  32.         EnemyNum As Integer
  33.         LEXcord As Integer
  34.         LEYcord As Integer
  35.         Visible As Integer
  36.     End Type
  37.  
  38.     'Number of Enemy Lasers
  39.     Global EnemyLasers(3) As ELRecord
  40.  
  41.     'Number of enemies hit counter
  42.     Global EnemyHitNum As Integer
  43.     
  44.     'Generic Counter
  45.     Global Counter As Integer
  46.  
  47.     'Global values for speed of the game and game delay
  48.     Global Speed As Integer
  49.     Global TimerDelay As Integer
  50.     Global Delay As Integer
  51.  
  52.     'Globals for number of dead enemies
  53.     Global NumDeadEnemy As Integer
  54.     Global NumLives As Integer
  55.     Global StartYcord, StartXcord As Integer
  56.  
  57.     Global Const ASCENDING_ORDER = 1
  58.     Global Const DESCENDING_ORDER = 2
  59.  
  60.  
  61.